BGN  TREESORT 0
 OPTN TMACHINE 10
 OPTN TSOURCE 1
 COMM TREE.PAS[S1,ALS]
 OPTN TSYM 1
 COMM TREE.SYM[S1,ALS]
 OPTN TRTIMES 1
TRE$DAT DATA 1
 EXPV INPUT M S 1 0 1044
 EXPV OUTPUT M S 1 1044 1044
 EXPV SYSOUT M S 1 2088 1044
TRE$01 ENT  P 2 2 1 0 0
 COMM INITARY         
 REGS 0 1 36 108
 LEX  1 1
 PSTR A M 2 0 36
 LOC  1 82 0
 LDC  L 36 12345
 CVT  J L
 STR  J R 2 72 36
 LOC  1 83 0
 LDC  L 36 1
 STR  L R 2 36 36
L2 LAB  0
 LOC  1 84 0
 LDC  J 36 54321
 LOD  J R 2 72 36
 MPY  J
 LDC  J 36 0
 ADD  J
 LDC  J 36 59999
 MOD  J
 STR  J R 2 72 36
 LOC  1 85 0
 LOD  A M 2 0 36
 LOD  L R 2 36 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  J R 2 72 36
 ISTR J 0 36
 LOD  L R 2 36 36
 INC  L 1
 STR  L R 2 36 36
 LOD  L R 2 36 36
 LDC  L 36 8000
 GRT  L
 FJP  L2
L1 LAB  0
 LOC  1 88 0
 RET 
 DEF  M 144
 END  TRE$01
TRE$02 ENT  P 2 3 1 0 0
 COMM SORT            
 REGS 0 1 36 180
 LEX  1 1
 PSTR A M 3 0 36
 LOC  1 121 0
 LDC  L 36 2
 STR  L R 3 36 36
L6 LAB  0
 LOC  1 122 0
 LOD  L R 3 36 36
 CHKL L 1
 CHKH L 8000
 STR  L R 3 72 36
 LOC  1 123 0
 LOD  L R 3 36 36
 CVT  J L
 STR  J R 3 108 36
 LOC  1 124 0
 LOD  A M 3 0 36
 LOD  L R 3 36 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 ILOD J 0 36
 STR  J R 3 144 36
 LOC  1 126 0
L7 LAB  0
 LOC  1 127 0
 LOD  J R 3 108 36
 LDC  L 36 2
 CVT  J L
 DIV  J
 STR  J R 3 108 36
 LOC  1 128 0
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 ILOD J 0 36
 LOD  J R 3 144 36
 SWP  J J
 LEQ  J
 FJP  L8
 LOC  1 128 0
 UJP  L3
L8 LAB  0
 LOC  1 129 0
 LOD  A M 3 0 36
 LOD  L R 3 72 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 ILOD J 0 36
 ISTR J 0 36
 LOC  1 130 0
 LOD  J R 3 108 36
 CVT  L J
 STR  L R 3 72 36
 LOC  1 131 0
 LOD  J R 3 108 36
 LDC  L 36 1
 CVT  J L
 EQU  J
 FJP  L7
L3 LAB  0
 LOC  1 134 0
 LOD  A M 3 0 36
 LOD  L R 3 72 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  J R 3 144 36
 ISTR J 0 36
 LOD  L R 3 36 36
 INC  L 1
 STR  L R 3 36 36
 LOD  L R 3 36 36
 LDC  L 36 8000
 GRT  L
 FJP  L6
L5 LAB  0
 LOC  1 137 0
 LDC  J 36 8000
 LDC  J 36 1
 SUB  J
 CVT  L J
 NSTR L R 3 180 36
 LDC  L 36 1
 LES  L
 TJP  L9
 LOD  L R 3 180 36
 CHKL L 1
 CHKH L 8000
 STR  L R 3 36 36
L10 LAB  0
 LOC  1 138 0
 LOD  A M 3 0 36
 LOD  L R 3 36 36
 LDC  L 36 1
 ADD  L
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 ILOD J 0 36
 STR  J R 3 144 36
 LOC  1 139 0
 LOD  A M 3 0 36
 LOD  L R 3 36 36
 LDC  L 36 1
 ADD  L
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  A M 3 0 36
 ILOD J 0 36
 ISTR J 0 36
 LOC  1 140 0
 LDC  L 36 1
 STR  L R 3 72 36
 LOC  1 141 0
 LDC  L 36 2
 CVT  J L
 STR  J R 3 108 36
 LOC  1 142 0
L11 LAB  0
 LOD  J R 3 108 36
 LOD  L R 3 36 36
 CVT  J L
 LEQ  J
 FJP  L12
 LOC  1 143 0
 LOD  J R 3 108 36
 LOD  L R 3 36 36
 CVT  J L
 LES  J
 FJP  L13
 LOC  1 143 0
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 LDC  L 36 1
 CVT  J L
 ADD  J
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 ILOD J 0 36
 SWP  J A
 ILOD J 0 36
 SWP  J J
 GRT  J
 FJP  L14
 LOC  1 143 0
 LOD  J R 3 108 36
 LDC  L 36 1
 CVT  J L
 ADD  J
 STR  J R 3 108 36
L14 LAB  0
L13 LAB  0
 LOC  1 144 0
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 ILOD J 0 36
 LOD  J R 3 144 36
 GRT  J
 FJP  L15
 LOC  1 145 0
 LOD  A M 3 0 36
 LOD  L R 3 72 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  A M 3 0 36
 LOD  J R 3 108 36
 DEC  J 1
 CHKL J 0
 CHKH J 7999
 IXA  J 36
 ILOD J 0 36
 ISTR J 0 36
 LOC  1 146 0
 LOD  J R 3 108 36
 CVT  L J
 STR  L R 3 72 36
 LOC  1 147 0
 LDC  L 36 2
 LOD  J R 3 108 36
 CVT2 J L
 MPY  J
 STR  J R 3 108 36
 UJP  L16
L15 LAB  0
 LOC  1 148 0
 UJP  L4
L16 LAB  0
 UJP  L11
L12 LAB  0
L4 LAB  0
 LOC  1 152 0
 LOD  A M 3 0 36
 LOD  L R 3 72 36
 DEC  L 1
 CHKL L 0
 CHKH L 7999
 IXA  L 36
 LOD  J R 3 144 36
 ISTR J 0 36
 LOD  L R 3 36 36
 DEC  L 1
 STR  L R 3 36 36
 LOD  L R 3 36 36
 LDC  L 36 1
 LES  L
 FJP  L10
L9 LAB  0
 LOC  1 155 0
 RET 
 DEF  M 216
 END  TRE$02
TRE$00 ENT  P 1 1 0 0 1
 COMM TREESORT        
 MST  2
 LDA  S 1 0 1044 0
 PAR  A M 0 0 36
 LDA  S 1 1044 1044 1044
 PAR  A M 0 36 36
 LDA  S 1 2088 1044 2088
 PAR  A M 0 72 36
 LDC  B 36 0
 PAR  B M 0 108 36
 LDC  B 36 1
 PAR  B M 0 144 36
 CUP  P 0 $INITSTD 5 0
 LOC  1 161 0
 MST  2
 LDA  S 1 3132 36 3132
 PAR  A M 0 0 36
 CUP  P 2 TRE$01 1 0
 LOC  1 163 0
 MST  2
 LDA  S 1 3132 36 3132
 PAR  A M 0 0 36
 CUP  P 3 TRE$02 1 0
 LOC  1 166 0
 RET 
 END  TRE$00
 INIT J S 1 0 36 36 0
 INIT J S 1 1044 1080 36 0
 INIT J S 1 2088 2124 36 0
 SDEF 1 291132
 OPTN TTYPES 1
 STP  TREESORT